home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / kalender prg. 5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  635 b   |  32 lines
  1. 10 input"datum format ttmmjjjj ";d$
  2. 20 t=val(mid$(d$,1,2))
  3. 30 m=val(mid$(d$,3,2))
  4. 40 j=val(mid$(d$,5))
  5. 50 gosub 1000
  6. 60 input"frist in tagen ";r
  7. 70 jd=jd+r
  8. 80 gosub 2000
  9. 90 print "laeuft am";t;".";m;".";j;". ab!"
  10. 100 end
  11. 1000 rem kalender -> julianisch
  12. 1010 if m>2 then m=m-3:goto 1030
  13. 1020 m=m+9:j=j-1
  14. 1030 jh=int(j/100):ja=j-100*jh
  15. 1040 jd=int(146097*jh/4)+int(1461*ja/4)
  16. 1050 jd=jd+int((153*m+2)/5)+t
  17. 1060 return
  18. 2000 rem julianisch -> kalender
  19. 2005 j=int((4*jd-1)/146097)
  20. 2010 jd=4*jd-1-146097*j
  21. 2020 t=int(jd/4)
  22. 2030 jd=int((4*t+3)/1461)
  23. 2040 t=4*t+3-1461*jd
  24. 2050 t=int((t+4)/4)
  25. 2060 m=int((5*t-3)/153)
  26. 2070 t=5*t-3-153*m
  27. 2080 t=int((t+5)/5)
  28. 2090 j=100*j+jd
  29. 2100 ifm<10thenm=int(m+3):goto2120
  30. 2110 m=int(m-9):j=j+1
  31. 2120 return
  32.